(print_preprocess) <case Lisp_Vectorlike>: Only mask

size if PSEUDOVECTOR_FLAG is set.

diff --git a/src/print.c b/src/print.c
index 3069f732829a848132811705efb8a988f5512773..597345c129cc6d115989f4cca2101fb7f40cbfdd 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1342,7 +1342,9 @@ print_preprocess (obj)
          goto loop;
 
        case Lisp_Vectorlike:
-         size = XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK;
+         size = XVECTOR (obj)->size;
+         if (size & PSEUDOVECTOR_FLAG)
+           size &= PSEUDOVECTOR_SIZE_MASK;
          for (i = 0; i < size; i++)
            print_preprocess (XVECTOR (obj)->contents[i]);
          break;